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Begin RoutePacket 0 
Define L of type Address; 

Define next_channel, inputchannel of type Channel; 
Define msg of type Message; 
Import messageQueue of type Queue; 

forever 

if length of (messageQueue) > O then 

dequeueMessage (messageQueue, (msg, input_channel)); 

if msg.status = Returned then 

— this message has been returned. 
handleReturnedMessage (msg, inputchannel); 

else 

— Pass message on to next node, 
set L := msgX 

if L = my_L then 

— Packet has arrived - terminates here. 

ProcessCell (msg. cell); 

else 

set next_channel := decideNextChannel (L,my_L); 

if next_channel = NoBestChannei then 
set msg.status := Returned; 
set next_channel := input_channel; 

end if 

SendPacketToChannel (msg, next_channel); 

end if 

end if 

end if 

end 

end RoutePacket 
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Begin decideNextChannei (Address L, Address my_L) of type Channel 
define hop of type Address; 

define weightedChannelSum, sum, weightedChannel of type Real Number; 
define bestChannel of type Channel; 
define j, unuseableChannels of type Integer; 

set hop := L - my_L; 

set weightedChannelSum := 0.0; 

set sum := 0.0; 

for j := 0 to Length of(hop) 

{ 

if ChannelUtilisation (j) > MaximumChannelUtilisation then 
set unuseableChannels unuseableChannels + 1; 

end if 

set weightedChannelSum:= weightedChannelSum+hop(j]*j/ChannelUtilisation (j); 
set sum :- sum * hop [j] / ChannelUtilisation [j]; 

} 

if unuseableChannels = ActiveChannels then 

— message cannot be forwarded from this node must be handed back to sender. 

return NoBestChaonel: 
end if 

set weightedChannel := weightedChannelSum / sum; 

set bestChannel :» MapWeightedChannelToBestChannei (weightedChannel); 

return bestChannel: 
end decideNextChannei 
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